(* Content-type: application/mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 7.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       145,          7]
NotebookDataLength[     16452,        602]
NotebookOptionsPosition[     11678,        431]
NotebookOutlinePosition[     12294,        455]
CellTagsIndexPosition[     12215,        450]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[TextData[{
 "New in: ",
 Cell["0.0", "HistoryData",
  CellTags->"New"],
 " | Modified in: ",
 Cell[" ", "HistoryData",
  CellTags->"Modified"],
 " | Obsolete in: ",
 Cell[" ", "HistoryData",
  CellTags->"Obsolete"],
 " | Excised in: ",
 Cell[" ", "HistoryData",
  CellTags->"Excised"]
}], "History",
 CellID->1247902091],

Cell[CellGroupData[{

Cell["Categorization", "CategorizationSection",
 CellID->1122911449],

Cell["Symbol", "Categorization",
 CellLabel->"Entity Type",
 CellID->686433507],

Cell["MathMR", "Categorization",
 CellLabel->"Paclet Name",
 CellID->605800465],

Cell["MathMR`", "Categorization",
 CellLabel->"Context",
 CellID->468444828],

Cell["MathMR/ref/HyperfineTensor", "Categorization",
 CellLabel->"URI"]
}, Closed]],

Cell[CellGroupData[{

Cell["Keywords", "KeywordsSection",
 CellID->477174294],

Cell["XXXX", "Keywords",
 CellID->1164421360]
}, Closed]],

Cell[CellGroupData[{

Cell["Syntax Templates", "TemplatesSection",
 CellID->1872225408],

Cell[BoxData[""], "Template",
 CellLabel->"Additional Function Template",
 CellID->1562036412],

Cell[BoxData[""], "Template",
 CellLabel->"Arguments Pattern",
 CellID->158391909],

Cell[BoxData[""], "Template",
 CellLabel->"Local Variables",
 CellID->1360575930],

Cell[BoxData[""], "Template",
 CellLabel->"Color Equal Signs",
 CellID->793782254]
}, Closed]],

Cell[CellGroupData[{

Cell["Details", "DetailsSection",
 CellID->307771771],

Cell["XXXX", "Details",
 CellLabel->"Lead",
 CellID->670882175],

Cell["XXXX", "Details",
 CellLabel->"Developers",
 CellID->350963985],

Cell["XXXX", "Details",
 CellLabel->"Authors",
 CellID->8391405],

Cell["XXXX", "Details",
 CellLabel->"Feature Name",
 CellID->3610269],

Cell["XXXX", "Details",
 CellLabel->"QA",
 CellID->401364205],

Cell["XXXX", "Details",
 CellLabel->"DA",
 CellID->350204745],

Cell["XXXX", "Details",
 CellLabel->"Docs",
 CellID->732958810],

Cell["XXXX", "Details",
 CellLabel->"Features Page Notes",
 CellID->222905350],

Cell["XXXX", "Details",
 CellLabel->"Comments",
 CellID->240026365]
}, Closed]],

Cell[CellGroupData[{

Cell["HyperfineTensor", "ObjectName",
 CellID->1224892054],

Cell[TextData[{
 Cell["   ", "ModInfo"],
 Cell[BoxData[
  RowBox[{"HyperfineTensor", "[", 
   RowBox[{"coord_", ",", "b_", ",", "theta_", ",", "phi_"}], "]"}]], 
  "InlineFormula"],
 " \[LineSeparator]HyperfineTensor"
}], "Usage",
 CellChangeTimes->{{3.499126633217726*^9, 3.49912663321788*^9}},
 CellID->982511436],

Cell["XXXX", "Notes",
 CellID->1067943069]
}, Open  ]],

Cell[CellGroupData[{

Cell["Tutorials", "TutorialsSection",
 CellID->250839057],

Cell["XXXX", "Tutorials",
 CellID->341631938]
}, Open  ]],

Cell[CellGroupData[{

Cell["Related Demonstrations", "RelatedDemonstrationsSection",
 CellID->1268215905],

Cell["XXXX", "RelatedDemonstrations",
 CellID->1129518860]
}, Open  ]],

Cell[CellGroupData[{

Cell["Related Links", "RelatedLinksSection",
 CellID->1584193535],

Cell["XXXX", "RelatedLinks",
 CellID->1038487239]
}, Open  ]],

Cell[CellGroupData[{

Cell["See Also", "SeeAlsoSection",
 CellID->1255426704],

Cell[TextData[ButtonBox["HyperfineField",
 BaseStyle->"Link",
 ButtonData->"paclet:MathMR/ref/HyperfineField"]], "SeeAlso",
 CellChangeTimes->{{3.49912664379871*^9, 3.499126649922118*^9}},
 CellID->929782353],

Cell[TextData[ButtonBox["MediatedInteraction",
 BaseStyle->"Link",
 ButtonData->"paclet:MathMR/ref/MediatedInteraction"]], "SeeAlso",
 CellChangeTimes->{{3.499126664702629*^9, 3.499126664797077*^9}},
 CellID->998521820]
}, Open  ]],

Cell[CellGroupData[{

Cell["More About", "MoreAboutSection",
 CellID->38303248],

Cell["XXXX", "MoreAbout",
 CellID->1665078683]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[GridBox[{
    {
     StyleBox["Examples", "PrimaryExamplesSection"], 
     ButtonBox[
      RowBox[{
       RowBox[{"More", " ", "Examples"}], " ", "\[RightTriangle]"}],
      BaseStyle->"ExtendedExamplesLink",
      ButtonData:>"ExtendedExamples"]}
   }],
  $Line = 0; Null]], "PrimaryExamplesSection",
 CellID->880084151],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"exampleCoord", "=", 
  RowBox[{"$DiamondLatticeConst", "*", 
   RowBox[{"{", 
    RowBox[{"3", ",", "3", ",", 
     RowBox[{"-", "1"}]}], "}"}]}]}]], "Input",
 CellChangeTimes->{{3.499123594245525*^9, 3.499123601824038*^9}, 
   3.499123921013837*^9, {3.499124811472856*^9, 3.499124835320692*^9}, {
   3.49912520656085*^9, 3.49912520758992*^9}, {3.499125361632188*^9, 
   3.499125387250396*^9}, {3.49912670147774*^9, 3.499126707320881*^9}, 
   3.499126772931054*^9},
 CellLabel->"In[42]:=",
 CellID->958101928],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"10.709999999999999`", ",", "10.709999999999999`", ",", 
   RowBox[{"-", "3.57`"}]}], "}"}]], "Output",
 CellChangeTimes->{3.499126852740167*^9, 3.499126917305742*^9, 
  3.499127128365961*^9},
 CellLabel->"Out[42]=",
 CellID->2094333451]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(", 
   RowBox[{"exampleHFtensor", "=", 
    RowBox[{"HyperfineTensor", "[", 
     RowBox[{"exampleCoord", ",", "0.0100", ",", 
      RowBox[{"10.0", "Degree"}], ",", 
      RowBox[{"20.0", "Degree"}]}], "]"}]}], ")"}], "//", 
  "MatrixForm"}]], "Input",
 CellChangeTimes->{{3.499123603665678*^9, 3.49912364620368*^9}, {
   3.49912385232685*^9, 3.499123854088303*^9}, 3.499123922951007*^9, {
   3.499124828568711*^9, 3.499124831009837*^9}, {3.499126713513408*^9, 
   3.499126735160351*^9}, {3.499126777348248*^9, 3.499126781020341*^9}, {
   3.499126818031331*^9, 3.49912683012037*^9}, {3.499127090369507*^9, 
   3.499127091505296*^9}, {3.499127607161985*^9, 3.499127621453303*^9}},
 CellLabel->"In[58]:=",
 CellID->870315991],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {
      RowBox[{"-", "36.98098916192204`"}], "14.974425314159546`", 
      "12.736857932274834`"},
     {"14.974425314159545`", "27.918256119859613`", "57.99870459806125`"},
     {"12.736857932274834`", "57.99870459806125`", "9.062733042062442`"}
    },
    GridBoxAlignment->{
     "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{
  3.499123647486667*^9, 3.499123696438471*^9, {3.49912384580426*^9, 
   3.499123856762508*^9}, 3.499123930704144*^9, {3.49912482540107*^9, 
   3.499124836411673*^9}, 3.499125210924041*^9, {3.499125364025928*^9, 
   3.499125390256036*^9}, {3.499126715287975*^9, 3.4991267356832*^9}, 
   3.499126783655029*^9, {3.499126823450219*^9, 3.499126853643224*^9}, 
   3.499126917656832*^9, 3.499127128710851*^9, {3.499127607950445*^9, 
   3.499127625543842*^9}},
 CellLabel->"Out[58]//MatrixForm=",
 CellID->1478216804]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"exampleSval", "=", 
  RowBox[{
   RowBox[{"Svalue", "[", 
    RowBox[{"2", ",", "0.0100", ",", 
     RowBox[{"10.0", "Degree"}], ",", 
     RowBox[{"20.0", "Degree"}]}], "]"}], ".", 
   RowBox[{"Transpose", "[", 
    RowBox[{"MagBFrame", "[", 
     RowBox[{
      RowBox[{"10.0", "Degree"}], ",", 
      RowBox[{"20.0", "Degree"}]}], "]"}], "]"}]}]}], "\[IndentingNewLine]", 
 RowBox[{"exampleHFtensor", ".", "exampleSval"}]}], "Input",
 CellChangeTimes->{{3.499126814535104*^9, 3.499126859979359*^9}, {
   3.499126891033333*^9, 3.49912690646867*^9}, {3.499127096527679*^9, 
   3.499127109365819*^9}, 3.499127262492574*^9, {3.49912757738592*^9, 
   3.499127577555513*^9}, {3.499127610431869*^9, 3.499127623775554*^9}},
 CellLabel->"In[59]:=",
 CellID->2010642770],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"-", "0.19205587612561714`"}], ",", "1.1102230246251565`*^-16", 
   ",", "0.9813822880029962`"}], "}"}]], "Output",
 CellChangeTimes->{{3.499126837966683*^9, 3.49912686024144*^9}, {
   3.499126891368305*^9, 3.499126907150381*^9}, {3.499127094608648*^9, 
   3.499127129093533*^9}, 3.499127262855566*^9, 3.499127578100973*^9, {
   3.499127612118802*^9, 3.499127626962274*^9}},
 CellLabel->"Out[59]=",
 CellID->687913792],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "19.602143053029877`", ",", "54.04297504646672`", ",", 
   "6.4478172791090405`"}], "}"}]], "Output",
 CellChangeTimes->{{3.499126837966683*^9, 3.49912686024144*^9}, {
   3.499126891368305*^9, 3.499126907150381*^9}, {3.499127094608648*^9, 
   3.499127129093533*^9}, 3.499127262855566*^9, 3.499127578100973*^9, {
   3.499127612118802*^9, 3.499127626965479*^9}},
 CellLabel->"Out[60]=",
 CellID->851224032]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"HyperfineField", "[", 
  RowBox[{"exampleCoord", ",", "2", ",", "0.0100", ",", 
   RowBox[{"10.0", "Degree"}], ",", 
   RowBox[{"20.0", "Degree"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.49912673746371*^9, 3.499126765636216*^9}, 
   3.499126921171926*^9, {3.499127101822389*^9, 3.499127113853177*^9}, {
   3.499127614068686*^9, 3.499127630538822*^9}},
 CellLabel->"In[61]:=",
 CellID->915838100],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "19.602143053029877`", ",", "54.04297504646671`", ",", 
   "6.4478172791090325`"}], "}"}]], "Output",
 CellChangeTimes->{
  3.499126784881129*^9, 3.499126924314355*^9, {3.499127102408008*^9, 
   3.499127130284716*^9}, {3.499127614590741*^9, 3.499127631129261*^9}},
 CellLabel->"Out[61]=",
 CellID->556212161]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["More Examples", "ExtendedExamplesSection",
 CellTags->"ExtendedExamples",
 CellID->1854448968],

Cell[BoxData[
 InterpretationBox[Cell["Scope", "ExampleSection"],
  $Line = 0; Null]], "ExampleSection",
 CellID->1293636265],

Cell[BoxData[
 InterpretationBox[Cell["Generalizations & Extensions", "ExampleSection"],
  $Line = 0; Null]], "ExampleSection",
 CellID->1020263627],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell["Options", "ExampleSection"],
  $Line = 0; Null]], "ExampleSection",
 CellID->2061341341],

Cell[BoxData[
 InterpretationBox[Cell["XXXX", "ExampleSubsection"],
  $Line = 0; Null]], "ExampleSubsection",
 CellID->1757724783],

Cell[BoxData[
 InterpretationBox[Cell["XXXX", "ExampleSubsection"],
  $Line = 0; Null]], "ExampleSubsection",
 CellID->1295379749]
}, Closed]],

Cell[BoxData[
 InterpretationBox[Cell["Applications", "ExampleSection"],
  $Line = 0; Null]], "ExampleSection",
 CellID->258228157],

Cell[BoxData[
 InterpretationBox[Cell["Properties & Relations", "ExampleSection"],
  $Line = 0; Null]], "ExampleSection",
 CellID->2123667759],

Cell[BoxData[
 InterpretationBox[Cell["Possible Issues", "ExampleSection"],
  $Line = 0; Null]], "ExampleSection",
 CellID->1305812373],

Cell[BoxData[
 InterpretationBox[Cell["Interactive Examples", "ExampleSection"],
  $Line = 0; Null]], "ExampleSection",
 CellID->1653164318],

Cell[BoxData[
 InterpretationBox[Cell["Neat Examples", "ExampleSection"],
  $Line = 0; Null]], "ExampleSection",
 CellID->589267740]
}, Open  ]]
},
WindowSize->{700, 770},
WindowMargins->{{0, Automatic}, {Automatic, 25}},
CellContext->"Global`",
FrontEndVersion->"7.0 for Linux x86 (32-bit) (February 25, 2009)",
StyleDefinitions->FrontEnd`FileName[{"Wolfram"}, "FunctionPageStyles.nb", 
  CharacterEncoding -> "iso8859-1"]
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{
 "ExtendedExamples"->{
  Cell[10158, 373, 100, 2, 56, "ExtendedExamplesSection",
   CellTags->"ExtendedExamples",
   CellID->1854448968]}
 }
*)
(*CellTagsIndex
CellTagsIndex->{
 {"ExtendedExamples", 12076, 443}
 }
*)
(*NotebookFileOutline
Notebook[{
Cell[545, 20, 325, 14, 26, "History",
 CellID->1247902091],
Cell[CellGroupData[{
Cell[895, 38, 68, 1, 30, "CategorizationSection",
 CellID->1122911449],
Cell[966, 41, 79, 2, 70, "Categorization",
 CellID->686433507],
Cell[1048, 45, 79, 2, 70, "Categorization",
 CellID->605800465],
Cell[1130, 49, 76, 2, 70, "Categorization",
 CellID->468444828],
Cell[1209, 53, 71, 1, 70, "Categorization"]
}, Closed]],
Cell[CellGroupData[{
Cell[1317, 59, 55, 1, 20, "KeywordsSection",
 CellID->477174294],
Cell[1375, 62, 45, 1, 70, "Keywords",
 CellID->1164421360]
}, Closed]],
Cell[CellGroupData[{
Cell[1457, 68, 65, 1, 20, "TemplatesSection",
 CellID->1872225408],
Cell[1525, 71, 94, 2, 70, "Template",
 CellID->1562036412],
Cell[1622, 75, 82, 2, 70, "Template",
 CellID->158391909],
Cell[1707, 79, 81, 2, 70, "Template",
 CellID->1360575930],
Cell[1791, 83, 82, 2, 70, "Template",
 CellID->793782254]
}, Closed]],
Cell[CellGroupData[{
Cell[1910, 90, 53, 1, 20, "DetailsSection",
 CellID->307771771],
Cell[1966, 93, 63, 2, 70, "Details",
 CellID->670882175],
Cell[2032, 97, 69, 2, 70, "Details",
 CellID->350963985],
Cell[2104, 101, 64, 2, 70, "Details",
 CellID->8391405],
Cell[2171, 105, 69, 2, 70, "Details",
 CellID->3610269],
Cell[2243, 109, 61, 2, 70, "Details",
 CellID->401364205],
Cell[2307, 113, 61, 2, 70, "Details",
 CellID->350204745],
Cell[2371, 117, 63, 2, 70, "Details",
 CellID->732958810],
Cell[2437, 121, 78, 2, 70, "Details",
 CellID->222905350],
Cell[2518, 125, 67, 2, 70, "Details",
 CellID->240026365]
}, Closed]],
Cell[CellGroupData[{
Cell[2622, 132, 58, 1, 64, "ObjectName",
 CellID->1224892054],
Cell[2683, 135, 315, 9, 76, "Usage",
 CellID->982511436],
Cell[3001, 146, 42, 1, 26, "Notes",
 CellID->1067943069]
}, Open  ]],
Cell[CellGroupData[{
Cell[3080, 152, 57, 1, 44, "TutorialsSection",
 CellID->250839057],
Cell[3140, 155, 45, 1, 17, "Tutorials",
 CellID->341631938]
}, Open  ]],
Cell[CellGroupData[{
Cell[3222, 161, 83, 1, 31, "RelatedDemonstrationsSection",
 CellID->1268215905],
Cell[3308, 164, 58, 1, 17, "RelatedDemonstrations",
 CellID->1129518860]
}, Open  ]],
Cell[CellGroupData[{
Cell[3403, 170, 65, 1, 31, "RelatedLinksSection",
 CellID->1584193535],
Cell[3471, 173, 49, 1, 17, "RelatedLinks",
 CellID->1038487239]
}, Open  ]],
Cell[CellGroupData[{
Cell[3557, 179, 55, 1, 31, "SeeAlsoSection",
 CellID->1255426704],
Cell[3615, 182, 208, 4, 17, "SeeAlso",
 CellID->929782353],
Cell[3826, 188, 219, 4, 17, "SeeAlso",
 CellID->998521820]
}, Open  ]],
Cell[CellGroupData[{
Cell[4082, 197, 57, 1, 31, "MoreAboutSection",
 CellID->38303248],
Cell[4142, 200, 46, 1, 17, "MoreAbout",
 CellID->1665078683]
}, Open  ]],
Cell[CellGroupData[{
Cell[4225, 206, 356, 11, 68, "PrimaryExamplesSection",
 CellID->880084151],
Cell[CellGroupData[{
Cell[4606, 221, 533, 12, 28, "Input",
 CellID->958101928],
Cell[5142, 235, 276, 7, 26, "Output",
 CellID->2094333451]
}, Open  ]],
Cell[CellGroupData[{
Cell[5455, 247, 760, 16, 51, "Input",
 CellID->870315991],
Cell[6218, 265, 1334, 30, 55, "Output",
 CellID->1478216804]
}, Open  ]],
Cell[CellGroupData[{
Cell[7589, 300, 788, 18, 73, "Input",
 CellID->2010642770],
Cell[8380, 320, 469, 10, 28, "Output",
 CellID->687913792],
Cell[8852, 332, 446, 10, 26, "Output",
 CellID->851224032]
}, Open  ]],
Cell[CellGroupData[{
Cell[9335, 347, 421, 9, 51, "Input",
 CellID->915838100],
Cell[9759, 358, 350, 9, 26, "Output",
 CellID->556212161]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[10158, 373, 100, 2, 56, "ExtendedExamplesSection",
 CellTags->"ExtendedExamples",
 CellID->1854448968],
Cell[10261, 377, 125, 3, 34, "ExampleSection",
 CellID->1293636265],
Cell[10389, 382, 148, 3, 22, "ExampleSection",
 CellID->1020263627],
Cell[CellGroupData[{
Cell[10562, 389, 127, 3, 22, "ExampleSection",
 CellID->2061341341],
Cell[10692, 394, 130, 3, 70, "ExampleSubsection",
 CellID->1757724783],
Cell[10825, 399, 130, 3, 70, "ExampleSubsection",
 CellID->1295379749]
}, Closed]],
Cell[10970, 405, 131, 3, 22, "ExampleSection",
 CellID->258228157],
Cell[11104, 410, 142, 3, 22, "ExampleSection",
 CellID->2123667759],
Cell[11249, 415, 135, 3, 22, "ExampleSection",
 CellID->1305812373],
Cell[11387, 420, 140, 3, 22, "ExampleSection",
 CellID->1653164318],
Cell[11530, 425, 132, 3, 22, "ExampleSection",
 CellID->589267740]
}, Open  ]]
}
]
*)

(* End of internal cache information *)
